home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 February / EnigmA AMIGA RUN 15 (1997)(G.R. Edizioni)(IT)[!][issue 1997-02][PLANET CD V].iso / enigma / earcd / editor / editor2 / wordmani.lha / WordMania / Install < prev    next >
Text File  |  1996-09-07  |  2KB  |  72 lines
  1. ; $VER: WordMania_Install 1.0 (29/08/96)
  2. ;
  3. ; WordMania Installation Script
  4. ; Coded By Vex /Shoah.
  5. ;
  6. ; ****************************************************************************
  7.  
  8. ; ***************************
  9. ; Initialise
  10. ; ***************************
  11.  
  12. (set PROGVER "1.0")
  13.  
  14. (set NOWB (cat "\n\'WordMania\'\nWordMania has only been tested on\n"
  15.         " Workbench 3.0, however it may work on Workbench 2.0\n"
  16.         " Your computer does not appear to meet this requirement.\n"
  17.         " Are you sure you wish to continue?"
  18.         )
  19.     )
  20.  
  21. (set INSTWHERE (cat "Where do you wish to install WordMania?\n"
  22.         "A new directory called \'WordMania\' will be created for you.") )
  23.  
  24. (set ABORTINSTALL (cat "Install aborted. Due to incorrect workbench version"))
  25.  
  26. ; ***************************
  27. ; Install start
  28. ; ***************************
  29.  
  30. ; Check if we've got the right Workbench version
  31.  
  32. (welcome (cat "Installation procedure for WordMania" PROGVER))
  33.  
  34. (set OSVER ( / (getversion ) 65536 ) )
  35.  
  36. (if ( < OSVER 36)
  37.     (if (NOT (askbool (prompt NOWB) (default 0) (choices "Proceed" "Cancel") ) )
  38.         (abort ABORTINSTALL)
  39.     )
  40. )
  41.  
  42. (if (> @user-level 0)
  43.     ; Which directory
  44.     (set INSTDIR (askdir (prompt INSTWHERE) (help @askdir-help) (default @default-dest)))
  45. ; else
  46.     (set INSTDIR @default-dest)
  47. )
  48.  
  49. ; Create it
  50. (makedir (set INSTDIR (tackon INSTDIR "WordMania") ) )
  51.  
  52. ; Install 'em...
  53. (copyfiles
  54.     (prompt "Which files do you wish to install?")
  55.     (help @copyfiles-help)
  56.     (source "")
  57.     (choices
  58.         "WordMania"
  59.         "Dictionary"
  60.         "WordMania.Guide"
  61.         "SHOAH.Guide"
  62.     )
  63.     (dest INSTDIR)        
  64.     (infos)
  65.     (confirm)
  66.     (infos)
  67. )
  68.  
  69. ; All done...
  70. (set @default-dest INSTDIR)
  71. (exit)
  72.